home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / loancalc.arc / INTRAISE.PAS next >
Pascal/Delphi Source File  |  1991-04-28  |  395b  |  16 lines
  1. {.PA}
  2. {.PL64}
  3. FUNCTION IntRaise(base: real; expt: integer): real;
  4. { Raises a real number to an integer exponent }
  5. BEGIN
  6.   IF expt = 0 THEN
  7.     IntRaise := 1
  8.   ELSE IF expt < 0 THEN
  9.     IntRaise := 1 / IntRaise(base, -expt)
  10.   ELSE
  11.     IF odd(expt) THEN
  12.       IntRaise := IntRaise(base, expt - 1) * base
  13.     ELSE
  14.       IntRaise := sqr(IntRaise(base, expt div 2))
  15. END; { IntRaise }
  16.